# satiagraha_fs
# autor: Fabiano A. Lima
# Esse arquivo contém o código usado para gera ras tabelas e estimar os modelos.

library(tidyverse)
library(rvest)
library(urltools)
library(lubridate)

source("pesquisador.r", encoding = "utf8")
source("gera_tabela.r", encoding = "utf8")

folha <- folha() 
o_globo <- o_globo()

tbl_citacoes <- readRDS("./data/tbl_citacoes_fs_satiagraha.rds")
tbl_citacoes$Total <- tbl_citacoes$Folha + tbl_citacoes$`O Globo`

gera_tabela_totais(tbl_citacoes)

folha_fs_sem_satiagraha <- readRDS("./data/folha_fs_sem_satiagraha.rds")
o_globo_fs_sem_satiagraha <- readRDS("./data/o_globo_fs_sem_satiagraha.rds")

df_final <- read_csv("./data/satiagraha fausto de sanctis 2008-06-22 a 2011-03-31.csv", col_types = "Ddd", na = "<1", skip = 2) %>%
  replace_na(list(`Operação Satiagraha: (Brasil)`= 0.1, `Fausto De Sanctis: (Brasil)` = 0.1)) %>%
  left_join(folha$gera_df(folha_fs_sem_satiagraha, "folha"), by = "Semana") %>%
  left_join(o_globo$gera_df(o_globo_fs_sem_satiagraha, "globo"), by = "Semana") %>%
  replace_na(list(folha = 0, globo = 0)) %>%
  mutate(
    cit_indep = folha + globo,
    `Ano.2009` = ifelse(year(Semana) == 2009, 1, 0),
    `Ano.2010` = ifelse(year(Semana) == 2010, 1, 0),
    `Ano.2011` = ifelse(year(Semana) == 2011, 1, 0)
  )

fit_1 <- lm(`Fausto De Sanctis: (Brasil)` ~ `Operação Satiagraha: (Brasil)`, data = df_final)
fit_2 <- lm(`Fausto De Sanctis: (Brasil)` ~ `Operação Satiagraha: (Brasil)` + cit_indep, data = df_final)
fit_3 <- lm(`Fausto De Sanctis: (Brasil)` ~ `Operação Satiagraha: (Brasil)` + cit_indep + `Ano.2009` + `Ano.2010` + `Ano.2011`, data = df_final)
gera_tabela(fit_1, fit_2, fit_3, "2009":"2011", "2008")

summary(fit_1)
summary(fit_2)
summary(fit_3)



